home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok32 / tasksupport / tasksupport.def next >
Text File  |  1993-11-04  |  1KB  |  35 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TaskSupport.def
  4.     :Contents.   multitasking, creates true Dos-processes
  5.     :Support.    Bernd Preusing's module "MultiTasking" helped me a lot!
  6.     :Author.     Nicolas Benezan [bne]
  7.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  8.     :Phone.      711/333679
  9.     :Copyright.  Public Domain
  10.     :Language.   Modula-2
  11.     :Translator. M2Amiga A+L V3.27d
  12.     :History.    V1.0 [bne] 09.Jan.1990 (exec tasks only)
  13.     :History.    V1.1 [bne] 10.Jan.1990 (+ dos processes)
  14.  
  15. **********************************************************************)
  16.  
  17. DEFINITION MODULE TaskSupport;
  18.  
  19. FROM Exec       IMPORT Byte, TaskPtr;
  20. FROM SYSTEM     IMPORT ADDRESS;
  21.  
  22. TYPE
  23.   TaskProc = PROCEDURE (ADDRESS);
  24.  
  25. PROCEDURE CreateTask (Proc: TaskProc;
  26.                       InitArg: ADDRESS;
  27.                       Name: ADDRESS;
  28.                       StackSize: LONGINT;
  29.                       Priority: Byte): TaskPtr;
  30.  
  31. PROCEDURE DeleteTask (Task: TaskPtr);
  32.  
  33. END TaskSupport.
  34.  
  35.